home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ MSI Options 3.xpl < prev    next >
Text File  |  1999-06-14  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="System\Software Installation\Windows Installer"
  5. "NAME"="Logging Options"
  6. "VERSION"="0.91"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Log all errors"
  9. "TEXT 2"="Log out-of-memory errors"
  10. "TEXT 3"="Log all warnings (not fatal)"
  11. "TEXT 4"="Log user requests"
  12. "TEXT 5"="Log when starting commands"
  13. "DESCRIPTION 1"="By default, every application sets itself if the setup should be logged or not. By setting an option here, you can enable the logging for all setups regardless if it's activated by the application or not."
  14. "DESCRIPTION 2"="If at least one option is turned on, a logfile for every installation will be created in your TEMP directory in the form "MSI*.LOG" where "*" is a randomly generated name."
  15. "DESCRIPTION 3"="To disable logging for all applications again, clear all fields."
  16. "AUTHOR"="Xteq Systems"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  19.  
  20.  
  21. sPathSys="HKLM\Software\Policies\Microsoft\Windows\Installer\"
  22. sPathUsr="HKCU\Software\Policies\Microsoft\Windows\Installer\"
  23.  
  24. sV1="Logging" 'STR - sys
  25. Sub Plugin_Initialize 
  26.  s=RegReadValue(sPathSys & sV1)
  27.  
  28.  if InStr(1,s,"e")>0 then setuielement 1,true
  29.  if InStr(1,s,"m")>0 then setuielement 2,true
  30.  if InStr(1,s,"w")>0 then setuielement 3,true
  31.  if InStr(1,s,"u")>0 then setuielement 4,true
  32.  if InStr(1,s,"a")>0 then setuielement 5,true
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  s=""
  40.  
  41.  if GetUIElement(1)=true then s=s & "e"
  42.  if GetUIElement(2)=true then s=s & "m"
  43.  if GetUIElement(3)=true then s=s & "w"
  44.  if GetUIElement(4)=true then s=s & "u"
  45.  if GetUIElement(5)=true then s=s & "a"
  46.  
  47.  if len(s)>0 then
  48.     'Enable logging
  49.     Call RegWriteValue(sPathSys & sV1,s,1)
  50.  else
  51.     'Disable logging
  52.     s=RegReadValue(sPathSys & sV1)
  53.     if IsEmpty(s)=false then
  54.        Call RegDeleteValue(sPathSys & sV1)
  55.     end if
  56.  end if
  57.  
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.